home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / utils / misc / siod / scm / spec.scm < prev    next >
Encoding:
Text File  |  1993-08-19  |  270 b   |  10 lines
  1. (macro repeat 
  2.        (lambda (e)
  3.                `(begin ,(cadr e) (while ,(caddr e) ,(cadr e)))))
  4.  
  5. (macro for
  6.        (lambda (e)
  7.                `(do ((,(cadr e) ,(caddr e) ,(cadddr e)))
  8.                     (,(car (cddddr e)))
  9.                     ,@(cdr (cddddr e)))))
  10.